Chip 2002 July/07_02.iso/software/xq-xsetup/files/setup.exe/{app}/plugins/XQ Yahoo Messenger 3.xpl

Text File | 2001-11-27 | 5KB | 160 lines

"FILE"="Xteq Systems X-Setup Plugin 6.0"
"TYPE"="8"
"COUNT"="3"
"UIPATH"="Internet\Instant Messaging\Yahoo Messenger"
"NAME"="Custom Status Messages"
"LANGUAGE"="VBScript"
"TEXT 1"="New status..."
"TEXT 2"="Edit status..."
"TEXT 3"="Delete status"
"DESCRIPTION 1"="If you're bored with the status messages Yahoo! gives you by default (Be Right Back, Busy), you can create your own."
"DESCRIPTION 2"="To create a new status, click 'New Status', type in a new message to describe your status (for example Drunk, Insane, Can't Be Bothered), and click OK. Then on the next screen type "0" (without the quotes) if you want this to be an 'active' status and "1" (without the quotes) if you want this to be a 'busy' status. Then click OK."
"DESCRIPTION 3"="You can also edit or delete entries you've already made."
"DESCRIPTION 4"="Notes: You are limited to 5 custom status messages. If you have an older version of Yahoo! Messenger, the settings will affect all users; in more recent versions the settings will only affect the current user."
"DESCRIPTION 5"="Yahoo! Messenger may be obtained at http://messenger.yahoo.com/."
"COMMENT 1"="Thanks to CptSiskoX ([e-mail]), AXCEL216, ([e-mail]) and Jesse L Zufall ([e-mail]) for this tip."
"VERSION"="1.12"
"AUTHOR"="Xteq Systems (Neil R. Turner)"
"COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved."
"CONTACTURL"="http://www.xteq.com/"

a="HKCU\Software\Yahoo\Pager\"

SUB Plugin_Initialize
 k=RegPathExists(a)
 if k=false then
  Call Disable()
 else
  d=RegPathExists(a & "Profiles\")
  if d=true then
   b=RegValueExists(a & "Yahoo! User ID")
   if b=true then
    c=RegReadValue(a & "Yahoo! User ID")
    g=a & "Profiles\" & c & "\"
   end if
  else
   g=a
  end if
  Call ReadMsg(1,g)
  Call ReadMsg(2,g)
  Call ReadMsg(3,g)
  Call ReadMsg(4,g)
  Call ReadMsg(5,g)
 end if
END SUB

SUB Plugin_Apply(ElementIndex,ElementSubIndex)
 d=RegPathExists(a & "Profiles\")
 if d=true then
  b=RegValueExists(a & "Yahoo! User ID")
  if b=true then
   c=RegReadValue(a & "Yahoo! User ID")
   g=a & "Profiles\" & c & "\"
  end if
 else
  g=a
 end if
 if ElementIndex=1 then ' New entry
  if RegValueExists(g & "Custom Msgs\1")=true AND RegValueExists(g & "Custom Msgs\2")=true AND RegValueExists(g & "Custom Msgs\3")=true AND RegValueExists(g & "Custom Msgs\4")=true AND RegValueExists(g & "Custom Msgs\5")=true then
   Call MsgError("You cannot have more than 5 entries!")
  else
   ' Firstly, we need to find out which value is free (either 1, 2, 3, 4 or 5)
   if RegValueExists(g & "Custom Msgs\1")=false then
    ' We can now use the first value
    Call WriteMsg(1,g)
   else
    if RegValueExists(g & "Custom Msgs\2")=false then
     ' OK, can we use the second value?
     Call WriteMsg(2,g)
    else
     if RegValueExists(g & "Custom Msgs\3")=false then
      ' Well what about the third value?
      Call WriteMsg(3,g)
     else
      if RegValueExists(g & "Custom Msgs\4")=false then
       ' Surely the fourth value?
       Call WriteMsg(4,g)
      else
       if RegValueExists(g & "Custom Msgs\5")=false then
        ' No! Not the fifth value! AAAAAHHHH!
        Call WriteMsg(5,g)
       else
        Call MsgError("You cannot have more than 5 entries!")
       end if ' 1 ..
      end if ' 2 ..
     end if ' 3 ..
    end if ' 4 ..
   end if ' 5 ..
  end if '6 !!! Oh well, it works...
 else
  if ElementSubIndex>0 then
   if ElementIndex=2 then ' Edit status
    Call WriteMsg(ElementSubIndex,g)
   end if
   if ElementIndex=3 then ' Delete Status
    m=RegValueExists(g & "Custom Msgs\" & ElementSubIndex)
    if m=true then
     Call RegDeleteValue(g & "Custom Msgs\" & ElementSubIndex)
    end if
    m=RegValueExists(g & "Custom Msgs\" & ElementSubIndex & "_DND")
    if m=true then
     Call RegDeleteValue(g & "Custom Msgs\" & ElementSubIndex & "_DND")
    end if
    Call SetUIElement(ElementSubIndex,"")
   end if
  else
   Call MsgError("Please select an item first.")
  end if
 end if
END SUB

SUB Plugin_Terminate
END SUB

SUB WriteMsg(MsgID,UserID)
 d=RegPathExists(a & "Profiles\")
 if d=true then
  b=RegValueExists(a & "Yahoo! User ID")
  if b=true then
   c=RegReadValue(a & "Yahoo! User ID")
   g=a & "Profiles\" & c & "\"
  end if
 else
  g=a
 end if
 l=RegReadValue(g & "Custom Msgs\" & MsgID)
 y=InputWindow("1. Type a description of this status (for example Drunk, Insane, Can't Be Bothered) below",l,1)
 if IsEmpty(y)=false then
  Call RegWriteValue(g & "Custom Msgs\" & MsgID,y,1)
  j=InputWindow("2. Type '0' if you want this to be an 'active' status, type '1' if you want this to be a 'busy' status.","0",1)
  if IsEmpty(j)=false then
   if j="1" then
    Call RegWriteValue(g & "Custom Msgs\" & MsgID & "_DND",1,2)
   else
    Call RegWriteValue(g & "Custom Msgs\" & MsgID & "_DND",0,2)
   end if
   j=RegReadValue(g & "Custom Msgs\" & MsgID & "_DND")
   if j=1 then
    x=" (Busy)"
   else
    x=" (Active)"
   end if
   Call SetUIElement(MsgID,y & x)
  end if
 end if
END SUB

SUB ReadMsg(MsgID,UserID)
 f=RegValueExists(UserID & "Custom Msgs\" & MsgID)
 if f=true then
  o=RegReadValue(UserID & "Custom Msgs\" & MsgID)
  p=RegReadValue(UserID & "Custom Msgs\" & MsgID & "_DND")
  if p=0 then
   q="(Active)"
  else
   q="(Busy)"
  end if
  Call SetUIElement(MsgID,o & " " & q)
 end if
END SUB